Dit voorbeeld maakt gebruik van de instructie Mid om een opgegeven aantal tekens in een tekenreeksvariabele door tekens uit een andere tekenreeks te vervangen.
Dim MyString
MyString = "Een aap sprong" ' Initialiseert tekenreeks.
Mid(MyString, 5, 3) = "kat" ' MyString = "Een kat sprong".
Mid(MyString, 5) = "koe" ' MyString = "Een koe sprong".
Mid(MyString, 5) = "koe springt over" ' MyString = "Een koe spring".
Mid(MyString, 5, 3) = "eend" ' MyString = "Een een spring".